DEFINITION MODULE IntuiSup;

FROM SYSTEM	IMPORT	ADDRESS;
FROM Intuition	IMPORT	Gadget, IntuiText, Border, StringInfo, ActivationFlags, 
			ActivationFlagSet, IDCMPFlagSet, WindowFlagSet,
			WindowPtr, ScreenFlagSet;


PROCEDURE InitBorder (VAR Bord : Border; xyData, next : ADDRESS);

PROCEDURE InitStringInfo (VAR Info : StringInfo; 
			  VAR buf, unbuf : ARRAY OF CHAR);

PROCEDURE InitIText (VAR IText : IntuiText; x,y : INTEGER; text : ADDRESS);

PROCEDURE CreateGadget (VAR Gad : Gadget; x,y,w,h,ID : INTEGER; Type:CARDINAL;
			 next, Info, Bord, Text : ADDRESS; 
			 Activ : ActivationFlagSet);

PROCEDURE CreateWindow(x,y,w,h : INTEGER; if: IDCMPFlagSet; wf: WindowFlagSet;
                       gad,scr,tit : ADDRESS; typ : ScreenFlagSet) : WindowPtr;

PROCEDURE IDCMPOn (window : WindowPtr; flags : IDCMPFlagSet);

PROCEDURE IDCMPOff (window : WindowPtr);

PROCEDURE ActivWindow () : WindowPtr;


END IntuiSup.Def
